developer/Samples/NET 4.6/Samples for Parallel/AcmePizza/AcmePizza_VisualBasic/CurrentOrderWindow.xaml.vb

   1 '--------------------------------------------------------------------------
   2 '
   3 '  Copyright (c) Microsoft Corporation.  All rights reserved.
   4 '
   5 '  File: CurrentOrderWindow.xaml.vb
   6 '
   7 '--------------------------------------------------------------------------
   8
   9 Imports System.Collections.ObjectModel
  10
  11 Namespace AcmePizza
  12         ''' <summary>
  13         ''' Interaction logic for CurrentOrder.xaml
  14         ''' </summary>
  15         Partial Public Class CurrentOrderWindow
  16                 Inherits Window
  17                 Private m_currentOrder As ObservableCollection(Of PizzaOrder)
  18
  19                 Public Sub New(ByVal order As PizzaOrder)
  20                         InitializeComponent()
  21             ' Show the current order by binding to a collection of one.
  22                         m_currentOrder = New ObservableCollection(Of PizzaOrder)()
  23                         Me.DataContext = m_currentOrder
  24                         m_currentOrder.Add(order)
  25                 End Sub
  26
  27                 Private Sub Image_MouseDown(ByVal sender As Object, ByVal e As MouseButtonEventArgs)
  28                         Me.Close()
  29                 End Sub
  30
  31         End Class
  32 End Namespace